// Statement-level information environment analysis. 
// E.g., how many sources, how much engagement, what types of sources, etc.

use "AMTstatementSlant.dta", clear

set scheme uncluttered

recode pFavor (1=1)(2=3)(3=2)
lab var pFavor "Worldview favored"
label define wv 1 "Left" 3 "Right" 2 "Neither", replace
label values pFavor wv

gen false=strpos(statement_num,"F")
lab var false "Statement veracity"
label define ft 1 "False statement" 0 "True statement", replace
label values false ft

// Table S4
bysort false: tab pFavor

// Fig. 3A
gen wcount=1/120
graph bar (sum) wcount, over(pFavor, gap(0)) over(false) asyvars ///
 	bar(1, color(blue*2)) bar(2, c(dimgray)) bar(3, fc(red*2)) ///
 	xsize(4.5) ysize(4.5) ylabel(0(.20).7, ang(h)) ///
 	ytitle("Proportion of all statements") text(.80 -18 "{bf:A}", place(s)) ///
 	legend(on cols(3) position(12) region(lwidth(none))) ///
 	name(fig3a, replace)
drop wcount
